/ Erect Magazine 4 / Erect Magazine 4.iso / mac / PhotoBr3 / PhotoBr3.rsrc / VWFI_1024

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 00 b2 11 20 | 00 00 00 08 00 00 00 00 |....... |........|
|00000010| 00 07 00 00 00 00 00 00 | 02 f4 00 00 03 18 00 00 |........|........|
|00000020| 03 3c 00 00 03 3c 00 00 | 03 3e 00 00 03 3e 00 00 |.<...<..|.>...>..|
|00000030| 03 3e 6f 6e 20 53 74 61 | 72 74 4d 6f 76 69 65 0d |.>on Sta|rtMovie.|
|00000040| 20 20 20 20 47 6c 6f 62 | 61 6c 20 43 6f 6e 66 69 |    Glob|al Confi|
|00000050| 67 5f 47 0d 20 20 20 20 | 2d 2d 70 75 74 20 22 30 |g_G.    |--put "0|
|00000060| 2c 31 2c 35 22 20 69 6e | 74 6f 20 43 6f 6e 66 69 |,1,5" in|to Confi|
|00000070| 67 5f 47 0d 65 6e 64 0d | 2d 2d 0d 6f 6e 20 52 65 |g_G.end.|--.on Re|
|00000080| 61 64 50 69 63 74 0d 20 | 20 20 20 47 6c 6f 62 61 |adPict. |   Globa|
|00000090| 6c 20 50 68 6f 74 6f 4e | 6f 5f 47 0d 20 20 20 20 |l PhotoN|o_G.    |
|000000a0| 70 75 74 20 70 61 74 68 | 4e 61 6d 65 28 29 20 26 |put path|Name() &|
|000000b0| 20 22 50 48 4f 54 4f 3a | 50 49 43 54 3a 46 45 52 | "PHOTO:|PICT:FER|
|000000c0| 41 3a 50 48 4f 54 4f 5f | 22 20 26 20 50 68 6f 74 |A:PHOTO_|" & Phot|
|000000d0| 6f 4e 6f 5f 47 20 26 20 | 22 2e 50 49 43 22 20 69 |oNo_G & |".PIC" i|
|000000e0| 6e 74 6f 20 66 4e 61 6d | 65 0d 20 20 20 20 70 75 |nto fNam|e.    pu|
|000000f0| 74 20 46 69 6c 65 49 4f | 28 6d 4e 65 77 2c 20 22 |t FileIO|(mNew, "|
|00000100| 72 65 61 64 22 2c 66 4e | 61 6d 65 29 20 69 6e 74 |read",fN|ame) int|
|00000110| 6f 20 6d 79 50 0d 20 20 | 20 20 69 66 20 6f 62 6a |o myP.  |  if obj|
|00000120| 65 63 74 50 28 6d 79 50 | 29 20 74 68 65 6e 0d 20 |ectP(myP|) then. |
|00000130| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 70 |       s|et the p|
|00000140| 69 63 74 75 72 65 20 6f | 66 20 63 61 73 74 20 22 |icture o|f cast "|
|00000150| 50 69 63 74 43 61 73 74 | 22 20 3d 20 6d 79 50 28 |PictCast|" = myP(|
|00000160| 6d 52 65 61 64 50 49 43 | 54 29 0d 20 20 20 20 20 |mReadPIC|T).     |
|00000170| 20 20 20 6d 79 50 28 6d | 44 69 73 70 6f 73 65 29 |   myP(m|Dispose)|
|00000180| 0d 20 20 20 20 65 6c 73 | 65 0d 20 20 20 20 20 20 |.    els|e.      |
|00000190| 20 20 62 65 65 70 20 31 | 0d 20 20 20 20 65 6e 64 |  beep 1|.    end|
|000001a0| 20 69 66 20 0d 65 6e 64 | 0d 2d 2d 0d 6f 6e 20 52 | if .end|.--.on R|
|000001b0| 65 61 64 43 61 73 74 0d | 20 20 20 20 73 65 74 20 |eadCast.|    set |
|000001c0| 74 68 65 20 63 61 73 74 | 4e 75 6d 20 6f 66 20 73 |the cast|Num of s|
|000001d0| 70 72 69 74 65 20 31 20 | 3d 20 74 68 65 20 6e 75 |prite 1 |= the nu|
|000001e0| 6d 62 65 72 20 6f 66 20 | 63 61 73 74 20 22 42 6c |mber of |cast "Bl|
|000001f0| 61 63 6b 42 6f 61 64 22 | 0d 20 20 20 20 75 70 64 |ackBoad"|.    upd|
|00000200| 61 74 65 73 74 61 67 65 | 0d 20 20 20 20 2d 2d 0d |atestage|.    --.|
|00000210| 20 20 20 20 47 6c 6f 62 | 61 6c 20 50 68 6f 74 6f |    Glob|al Photo|
|00000220| 4e 6f 5f 47 2c 50 68 6f | 74 6f 5f 47 0d 20 20 20 |No_G,Pho|to_G.   |
|00000230| 20 70 75 74 20 22 50 68 | 6f 74 6f 50 61 6c 22 26 | put "Ph|otoPal"&|
|00000240| 50 68 6f 74 6f 4e 6f 5f | 47 20 69 6e 74 6f 20 50 |PhotoNo_|G into P|
|00000250| 61 6c 5f 57 0d 20 20 20 | 20 70 75 70 70 65 74 50 |al_W.   | puppetP|
|00000260| 61 6c 65 74 74 65 20 50 | 61 6c 5f 57 2c 36 30 0d |alette P|al_W,60.|
|00000270| 20 20 20 20 75 70 64 61 | 74 65 73 74 61 67 65 0d |    upda|testage.|
|00000280| 20 20 20 20 2d 2d 0d 20 | 20 20 20 70 75 74 20 50 |    --. |   put P|
|00000290| 68 6f 74 6f 4e 6f 5f 47 | 2b 31 32 38 20 69 6e 74 |hotoNo_G|+128 int|
|000002a0| 6f 20 50 68 6f 74 6f 5f | 57 0d 20 20 20 20 70 75 |o Photo_|W.    pu|
|000002b0| 74 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 63 61 |t the na|me of ca|
|000002c0| 73 74 20 50 68 6f 74 6f | 5f 57 20 69 6e 74 6f 20 |st Photo|_W into |
|000002d0| 6e 61 6d 65 5f 57 0d 20 | 20 20 20 73 65 74 20 74 |name_W. |   set t|
|000002e0| 68 65 20 63 61 73 74 4e | 75 6d 20 6f 66 20 73 70 |he castN|um of sp|
|000002f0| 72 69 74 65 20 31 20 3d | 20 74 68 65 20 6e 75 6d |rite 1 =| the num|
|00000300| 62 65 72 20 6f 66 20 63 | 61 73 74 20 6e 61 6d 65 |ber of c|ast name|
|00000310| 5f 57 0d 20 20 20 20 75 | 70 64 61 74 65 73 74 61 |_W.    u|pdatesta|
|00000320| 67 65 0d 65 6e 64 23 51 | 75 61 64 72 61 39 35 30 |ge.end#Q|uadra950|
|00000330| 20 2d 20 54 6f 74 61 6c | 20 4d 65 64 69 61 20 41 | - Total| Media A|
|00000340| 67 65 6e 63 79 2c 49 6e | 63 2e 23 51 75 61 64 72 |gency,In|c.#Quadr|
|00000350| 61 39 35 30 20 2d 20 54 | 6f 74 61 6c 20 4d 65 64 |a950 - T|otal Med|
|00000360| 69 61 20 41 67 65 6e 63 | 79 2c 49 6e 63 2e 00 00 |ia Agenc|y,Inc...|
+--------+-------------------------+-------------------------+--------+--------+